home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 1201_300 / DISK1262 / DISK1262.ZIP / _ITOHS.D < prev    next >
Text File  |  1988-07-11  |  896b  |  47 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;--------------------------------
  4. ; _ I T O H S  - INTEGER TO HEX STRING
  5. ;
  6. ; ENTRY CONDITIONS:
  7. ;    BX HOLDS THE INTEGER VALUE
  8. ;    DI POINTS TO THE TARGET 4 BYTE STRING
  9. ; EXIT CONDITIONS:
  10. ;    ASSUME ALL REGISTERS MODIFIED
  11. ;
  12. SUBPGM    _ITOHS
  13. BEGIN    _ITOHS
  14.     MOV    AL,BH
  15.     CALL    @BTOH
  16.     XCHG    AH,AL
  17.     MOV    [DI],AX
  18.     MOV    AL,BL
  19.     CALL    @BTOH
  20.     XCHG    AH,AL
  21.     MOV    [DI+2],AX
  22.     MOV    BYTE PTR [DI+4],0    ; SET A TERMINATOR
  23.     RET
  24. ;
  25. @BTOH    PROC    NEAR
  26.     MOV    AH,AL
  27.     MOV    CL,4
  28.     SHR    AL,CL
  29.     CALL    @@BH05
  30.     XCHG    AH,AL
  31.     CALL    @@BH05
  32.     RET
  33. ;
  34. @@BH05    PROC    NEAR
  35.     AND    AL,0FH
  36.     CMP    AL,9
  37.     JG    @@BH10
  38.     ADD    AL,'0'
  39.     RET
  40. @@BH10:
  41.     ADD    AL,'A'-10
  42.     RET
  43. @@BH05    ENDP
  44. @BTOH    ENDP
  45. ENDPGM    _ITOHS
  46. ;
  47.